home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Complete C196855172001.psc / Client / frmURL.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2001-05-13  |  3.9 KB  |  128 lines
  1. VERSION 5.00
  2. Begin VB.Form frmURL 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "Force URL Jump"
  5.    ClientHeight    =   930
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3420
  9.    Icon            =   "frmURL.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   930
  14.    ScaleWidth      =   3420
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   1  'CenterOwner
  17.    WhatsThisButton =   -1  'True
  18.    WhatsThisHelp   =   -1  'True
  19.    Begin VB.CommandButton cmdSend 
  20.       Caption         =   "&Send"
  21.       Default         =   -1  'True
  22.       BeginProperty Font 
  23.          Name            =   "Tahoma"
  24.          Size            =   8.25
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       Height          =   400
  32.       Left            =   2385
  33.       TabIndex        =   3
  34.       Top             =   437
  35.       Width           =   960
  36.    End
  37.    Begin VB.CommandButton cmdExit 
  38.       Cancel          =   -1  'True
  39.       Caption         =   "&Cancel"
  40.       BeginProperty Font 
  41.          Name            =   "Tahoma"
  42.          Size            =   8.25
  43.          Charset         =   0
  44.          Weight          =   400
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       Height          =   385
  50.       Left            =   2655
  51.       TabIndex        =   1
  52.       Top             =   1170
  53.       Visible         =   0   'False
  54.       Width           =   960
  55.    End
  56.    Begin VB.TextBox txtURL 
  57.       BeginProperty Font 
  58.          Name            =   "Tahoma"
  59.          Size            =   8.25
  60.          Charset         =   0
  61.          Weight          =   400
  62.          Underline       =   0   'False
  63.          Italic          =   0   'False
  64.          Strikethrough   =   0   'False
  65.       EndProperty
  66.       Height          =   315
  67.       Left            =   525
  68.       TabIndex        =   0
  69.       Text            =   "http://"
  70.       Top             =   45
  71.       Width           =   2790
  72.    End
  73.    Begin VB.Label Label2 
  74.       Caption         =   "TIP: You can also enter filenames or EXE names."
  75.       BeginProperty Font 
  76.          Name            =   "Tahoma"
  77.          Size            =   8.25
  78.          Charset         =   0
  79.          Weight          =   400
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       Height          =   375
  85.       Left            =   90
  86.       TabIndex        =   4
  87.       Top             =   450
  88.       Width           =   1920
  89.    End
  90.    Begin VB.Label Label1 
  91.       AutoSize        =   -1  'True
  92.       Caption         =   "UR&L:"
  93.       BeginProperty Font 
  94.          Name            =   "Tahoma"
  95.          Size            =   8.25
  96.          Charset         =   0
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   195
  103.       Left            =   135
  104.       TabIndex        =   2
  105.       Top             =   90
  106.       Width           =   345
  107.    End
  108. Attribute VB_Name = "frmURL"
  109. Attribute VB_GlobalNameSpace = False
  110. Attribute VB_Creatable = False
  111. Attribute VB_PredeclaredId = True
  112. Attribute VB_Exposed = False
  113. Option Explicit
  114. Private Sub cmdExit_Click()
  115.     Unload Me
  116. End Sub
  117. Private Sub cmdSend_Click()
  118. On Error GoTo hell
  119.     frmConnection.objTCP.SendData "|EXEC| " & Me.txtURL
  120.     Unload Me
  121. Exit Sub
  122. hell:
  123. MsgBox Error & ".", vbCritical
  124. End Sub
  125. Private Sub Form_Load()
  126. txtURL.SelStart = Len(txtURL.Text)
  127. End Sub
  128.